home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / STRIP.PAS < prev    next >
Pascal/Delphi Source File  |  1980-01-01  |  1KB  |  51 lines
  1. { -------------------------------------------
  2.   STRIP function removes leading and trailing
  3.   characters from a string.
  4.   ------------------------------------------- }
  5. Function STRIP ( S : AnyString;
  6.                  C : Char) : AnyString;
  7.                  { Removes all leading and trailing
  8.                    C characters from S }
  9. begin
  10.    InLine ( $1E/
  11.             $8D/$7E/$07/
  12.             $8A/$4E/$06/
  13.             $30/$ED/
  14.             $8C/$D0/
  15.             $8E/$C0/
  16.             $8B/$46/$04/
  17.             $83/$F9/$01/
  18.             $77/$0E/
  19.             $8A/$5E/$07/
  20.             $30/$FF/
  21.             $39/$D8/
  22.             $74/$35/
  23.             $8B/$D7/
  24.             $EB/$1D/$90/
  25.             $FC/
  26.             $F3/$AE/
  27.             $E3/$2B/
  28.             $4F/
  29.             $8B/$D7/
  30.             $8A/$4E/$06/
  31.             $30/$ED/
  32.             $8D/$7E/$07/
  33.             $01/$CF/
  34.             $4F/
  35.             $FD/
  36.             $F3/$AE/
  37.             $47/
  38.             $8B/$CF/
  39.             $29/$D1/
  40.             $41/
  41.             $88/$8E/$06/$01/
  42.             $8B/$F2/
  43.             $8D/$BE/$07/$01/
  44.             $8C/$D0/
  45.             $8E/$D8/
  46.             $FC/
  47.             $F3/$A4/
  48.             $EB/$07/$90/
  49.             $C7/$86/$06/$01/$00/$00/
  50.             $1F/$5D);
  51. end;